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BBC Logic Tree 


by Robert Armstrong 


‘Logic Tree’ is a program for either model 
BBC. Presented loosely in the form of a 
simple game, it allows the user to gradually 
build up a binary tree (refer to a Basic 
textbook if you are unfamiliar with the 
concept). It is likely to prove a useful 
teaching aid in that it demonstrates how a 
tree is formed and the way in which it is 
used. 

Touse the program for the first time, you 
will need to input a subject. This can be 
anything you like, but it is best to stick to 
concrete nouns when using the program 
with young children. You then enter 
examples, supplying answers to the com- 


10OREM TREE STRUCTURE GAME 
20 eR HE ee 
30 

40MODE7 

SOPROCinit 

S0REPEAT 
7OPROCsearch_tree 
80PROCend_ of tree 
9OPROCanother _go 

1OOUNT ILFALSE 
110 DEFPROCinit 

120 HARK PRE HER 


130 

1400N ERROR GOTO2760 
1iSOREM disable escape 
160#FX220,0 

17OREM this shows how the tree is built up (after leaving prog use f0) 
“; TREES (1,2)5" 


LSO#KEYOF. I=1TO10:P. TREES(1I,1);3;" 
190DIM TREE#(100,3) 

2OOREM lower case 

210#F X202,48 


puter’s questions as you go. The tree 
will carry out a search following each 
additional branch and request further 
details if the search fails. 

The syntax requires attributes rather 
than properties of objects, since the 
questions asked are based on ‘Can the 
object. :.7’ Yather > .Ahan=.:‘s" the 
object . . .?’, but this is easily changed if 
required. Once a tree is complete, it may 
be saved on disk for future use. Function 
Key 0 prints the array holding the data so 
that you are able to see how the tree is 
structured. 





"s TREE$(1,3):N. 1M 


220REM set VDU7 duration (FX213 sets pitch) 


230#FX214,1 

24O0REM assign colours eg r=RED 
250r=129 

260g=130 

270y=131 

2B0m=133 

290b=134 

300num=1 

310newnum=1 

320t ype$="TREE GAME" 
330PROCheader 
S40PROCinstruct 
350CLS 

360PRINT 


370PROCprint(b,"Shall I load the file you saved last time?") 


S80PROCyes_no 
390CLS 
400PROCof F 


410I1F ans PROCload datafile ELSE PROCfirst data 


420PROCof £ 
430PROCdel ay (60) 
440PRINT’ ’ ’CHR#g3 "Here we go 
450PROCdel ay (200) 
460PROCon 
470PROCheader 
480ENDPROC 
DEFPROCfirst data 
HEEKKHEKEEHKREHKREE 


S20PRINT 
S30PROCprint (0, "OK. 
S40PROCdel ay (200) 
SSOPRINT ‘’ ‘CHR#g; “Here we go 
3460PROCdel ay (200) 

370CLS 

SBOPROCon 

SIOPRINT 


I will ask you some questions to start a new tree.") 


S00PROCprint(b,"“What tree do your objects belong to?") 


610PRINT 


620PROCtext col (y) 
S30INPUT"They are from the tree of 


“types 


640IF RIGHTS (type$,1)="s" types$=LEFTS$ (type$,LEN (type) —1) 


650PRINT 


660PROCprint (b,"What shall I ask you first about the 


6&70PRINT 


os +types+"?" ) 


680PROCprint(ly,"Ask me if the "+type$+" can ") 


S90INPUT" "TREES (1,1) 

7JOOPRINT : 

71iOPROCprint(b,"If the "+types+" 
might it be?") 

72OPRINT 

7SOPROCtext col (y) 

74O0INPUT"It might be "“TREES$(1,2) 

7SOPRINT 


could 


“+TREES$ (1,num)+" what type of 


760PROCprint(b,"If the "+type$+" could not "+TREE$(1i,num)+" what type of 
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“+type$+" might it be?") 
77OPRINT 

7S0PROCtext col ty? 

7T9OINPUT"It might be “TREES$(1,3) 


B00next=2 

81 0ENDPROC 

820 DEFPROCsearch tree 
830 ee ee ee ee 
840 

8B50CLS 

840pos=-1 

87OREPEAT 

B80pos=pos+i 


890num=newnum 

JOOPROCtext col (b) 

910PRINTTAB(O,pos) "Does the “;type$;" you are thinking of 
"* TREES (num,1)3"?7"5 

920PROCyes_no 

930IF ans reply=2 ELSE reply= 
940newnum=ASC (TREES (num,reply) )—48 
J5OPRINTTAB (0, pos) ; SPC38 
S60PRINTTAB (0, pos) ; CHR$m; TREES (num, 1) 5 

970IF reply=2 PRINTTAB (25) CHR$g"yes";SPC12 ELSE PRINTTAB (30) CHR$r “no" ; SPC& 
9BOUNTIL newnum>next 


990ENDPROC 

1000 DEFPROCend of tree 
1010 LELRPERLERREHERERSE 
1020 


1030PROCprint (0,CHR$11+"Are you thinking of "+TREES$ (num,reply)+"?") 
1040PROCyes_no 

1050IF ans PRINTCHR$g"yes":PROCi won ELSE PRINTCHR$r“no":PROCupdate_tree 
1060newnum=1 


1070ENDPROC 

1080 DEFPROCupdate tree 
1090 HHH EHHERHHEEEEEHHER 
1100 


1110TEMPS=TREES (num,reply) 

1120PRINT ‘CHR$(r)SPC14"OK, you win." 
1130FORI=5 TO 2 STEP-1 

1140FORJ=150TOO STEP-25 
1150SOUND17 ,—(1+10) ,J+SIN(I*I) ,I 

1160NEXT, 

1170PRINT’ "What were you thinking of?" 
1180PROCtext_col (y) 

L1i90INPUT"I was thinking of "newtype$ 
1200PROCprint(b,"What question would differentiate between 
"+newtypest+" and “+ TREES (num,reply) +"?"+CHR#10+CHRF13) 
1210PROCtext col (y) 

1220INPUT“Does it “act 

1230IF RIGHTS (act$,1)="?" act$=LEFT$ (act$,LEN(act$)-—1) 
1240TREES (next, 1)=act# 

1250PROCprint (b,"“What is the correct answer for "“+newtype$+"?") 
1260I1IF POS>36 PRINT 

1270TEMPS=TREES (num,reply) 

1280TREES (num,reply) =STR$ (next) 
1290PROCyes_no 

1300IF ans PRINTCHR$y"yes": reply=2 ELSE PRINTCHR$y"no"srepl y=5 
1 S1OTREES (next ,reply) =newtypes 

i320IF reply=2 reply=3 ELSE reply=2 

1 S3OTREES (next ,reply) =TEMPS$ 

1340next=next+1 

1350newnum=1 

1360PROCof f 

1370PROCprint(O,"I know "+STR$(next-1)+" “+type$+"s now") 
1380PRINT 

1390PROCdel ay (100) 

1 400PROCon 

141 0ENDPROC 

1420 DEFPROCyes_no 

1430 HHH EH HNN HH HE 

1440 

1450#FX21,0 

1 460REPEAT 

1470ans=GET OR &20 

1480UNTIL ans=121 OR ans=110 

1490IF ans=121 ans=TRUE ELSE ans=FALSE 

1500IF ans THEN *FX213,250 

iSiOIF NOT ans THEN #FX213,50 

1520VDU7 

1 S30ENDPROC 

1540 DEFPROCi_won 

1550 ee 

1560 

1570PRINT ‘ CHR$134CHR$ (g) TAB(16) "I WON!" 
1580FORI=STO 2 STEP-i 

1590FORJ=1TO6 
1600SOUND17 ,—(1+10) , 15SO#SIN(I“I) ,I 

1610NEXT, 

1620PRINT 

16430ENDPROC 

1640 DEFPROCanother go 

14650 RPE EEHHEE RHEE EER 

16460 

1670PRINT'"Do you want another go?"; 
1680PROCyes_no 

1690IF ans ENDPROC 

1700REM reset 

1710#FX202,32 

1720*F X220,27 

1730#FX213,100 

1740#FX214,6& 

47S50ELS 

1760PROCpr int (b,CHR$10+"Thanks for playing.”") 
1770PRINT’* 

1780PROCprint(0,"Do you want to save the information about "+type$+"s?") 
1790PROCyes_no 

1800IF NOT ans VDU26,12:PRINTCHR$b"Bye”:END 
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1810411 e=OPENOUT ("$. TREEDAT") 
1IB2OPRINT#file,types next 

1830FOR I=1 TO next-—i 
1B40PRINT#Ffile, TREES(I,1) , TREES(1,2) , TREES (1,3) 
1850NEXT 

18460CLOSE#0 

1870VDU26,12 

1880PRINTCHR$b" Bye” 


1890END 

1900 DEFPROCload datafile 
1910 HEHEHE REMHHEHHHHHE 
1920 


1930f i 1le=OPENIN("%. TREEDAT") 
1940INPUT#file,types,next 

1950FOR I=iTO next-1 
19S6O0INPUT#File, TREES(1,1) ,TREES(1,2) , TREES (1,3) 
197ONEXT 

1980CLOSE#0 

1990PROCpr int (0,CHR$10+"I have loaded the information from the file") 
2ZOOOPROCdel ay (100) 

ZO1OPRINT’* 

2020PROCprint(0,"I know "+STR#(next—1)+" "“+types+"s") 
2030PROCdel ay (100) 

2040PROCon 

ZOSOENDPROC 

2060 DEFPROCdel ay (t) 

2070 HERE REEHHHE 

2080wai t=INKEY (t) 

ZO90ENDPROC 

2100 DEFPROCof f 

2110 HEME R HEHE 

2120VDU23,1,0;0;0;0; 

2130ENDPROC 

2140 DEFPROCon 

2150 RHEE EEE 

2160VDU23 ,1,1305;0;05 

21 70ENDPROC 

2180 DEFPROCinstruct 

2190 ERE EHK ERR KEKE 

2200 

2210PRINT 

2220PROCprint(b,"Do you want instructions for the game?") 
2230PROCyes_no 

2240IF NOT ans ENDPROC 

2250CLS 

2260PROCof F 

2270PRINT 

22B80PROCprint(0,"You will be asked if you want to load a file containing 
information about the tree or answer questions to start a new tree.") 
2290PROCdel ay (600) 

Z300PRINT’ 

2S10PRINT"A type of tree might be" 
23520PRCCdelay (50) 

2Z25350PRINTTAB(S) CHR$y" ‘animals’ "’ 
2340PROCdel ay (250) 

ZS50PRINT"The first question may be" 
2360PROCdel ay (50) 

2370PRINTTAB(S) CHR$y" ‘does it walk’." 
2380PROCdel ay (250) 

ZS390PRINT‘'‘"I will ask questions in blue writing." 
2Z400PROCdel ay (50) 

2410PROCprint(y,"Your replies will be in yellow.") 
2420PROCdel ay (700) 

2430PRINT’ ‘CHR$qg;3; "Here we go....." 
2440PROCdel ay (400) 

24S50PROCon 

2460ENDPROC 

2470 DEFPROCtext col (c) 

2480 HRA 

Z490REM poke colour outside text window 

2500F ORI=&7C78+VP0S*40 TO &7FCOSTEP&28 

2o10?T=c 

2ZS2ZONE XT 

2SS0ENDPROC 

2o40 DEFFROCheader 

Zo00 HEBER HM HMR 

2560VDU25 

2970CLS 

2580FORI=1TO2 

2590PRINTCHRS (y) CHR$¢157CHR$1 S2CHR#141SPC ( (34—-LEN (type$) )/2) ; types 
2&600ONE XT 

2610REM text window to leave first col’m blank 
2620VDU28 ,1,24,39,3 


2630ENDPROC 

2640 DEFPROCpr int (col ,A#) 
2650 REHHEHEERHEE 

2660 


2670IF col PROCtext col (col) 
2Z680IF LEN(AS$)<39 PRINTAS; =: ENDPROC 
ZO690P=39 

2700REPEAT 

2710P=P-1 

27ZOUNTIL MIDS (AS,P,1)=" " 
2730PRINT LEFTS(AS$,P) 

27 40A$S=RIGHTS$ (A$ ,LEN (AS) -P) 
2730G0TO2680 

2760REM ERROR ROUTINE 

2770 ERHUGRENEHHEHE 

2780 

2Z79OIF ERR=129 PRINTCHR#136CHRS$r " 
THE FILE IS NOT ON THE DISC":PROCdelay (600) : RUN 
ZBOOPRINT’ "OOPS @ line “;ERL 
2810REPORT 

2Z2B20PRINT’ 

2ZB30#F X202, 32 

2ZB40#F X220, 27 

2B50END 




















